home *** CD-ROM | disk | FTP | other *** search
- #
- # CC_Laser.cog
- #
- # Crystal Information Center Laser script
- #
- # 03/24/98 DGS Created.
- #
- # (C) 1998 Lucas Learning Limited All Rights Reserved
- # ========================================================================================
-
- symbols
- ## ================ Messages
- message startup
- message timer
- message entered
- message exited
- message pulse
- surface conveyor nolink
- sound wav0=MCH00tCnvyr03.WAV local
- sound wav1=ELV00tSmllElvStp.WAV local
- sound wav2=MCHt9MotStrt.WAV local
- vector up_v
- vector down_v
- sector down_s
- sector up_s
- sector con_s
- flex speed=3.0 local
- int conv_i=0 local
-
- end
-
- # ========================================================================================
-
- code
- startup:
- player=getlocalplayerthing();
- return;
-
- entered:
- print("entered");
- printint(getthingsector(player));
- printint(down_s);
- settimer(0);
- if (getthingsector(player) == down_s)
- {
- settimer(0);
- print("Yoyo!");
- call stop_c;
- //sleep(1);
- timermode = 2;
- setpulse(0.8);
- }
- if (getthingsector(player) == up_s)
- {
- settimer(0);
- print("Yoyo!");
- call stop_c;
- //sleep(1);
- timermode = 3;
- setpulse(0.8);
- }
-
- return;
-
- exited:
- print("see ya later!222");
-
- if ((getsenderref() == con_s) || (getsenderref() == down_s) || (getsenderref() == up_s))
- {
- print("see ya later!");
- //timermode = 1;
- settimer(1);
- }
- return;
- stop_c:
- timer:
- //print("Loop");
- //printint(conv_i);
- if (conv_i != 0)
- {
- //print("Loop!");
- stopanim(conv_i);
- if (sounder >0) stopsound(sounder,0.5);
- garbage = playsoundpos(wav1,getsurfacecenter(conveyor),0.2,-1,-1,0);
- sounder = 0;
- conv_i = 0;
- }
- return;
- pulse:
- if (timermode == 2)
- {
- garbage = playsoundpos(wav2,getsurfacecenter(conveyor),0.2,-1,-1,0);
- sounder = playsoundpos(wav0,getsurfacecenter(conveyor),0.1,-1,-1,11);
- conv_i = slidewall(conveyor, up_v, speed);
- }
- else if (timermode == 3)
- {
- garbage = playsoundpos(wav2,getsurfacecenter(conveyor),0.2,-1,-1,0);
- sounder = playsoundpos(wav0,getsurfacecenter(conveyor),0.1,-1,-1,11);
- conv_i = slidewall(conveyor, down_v, speed);
- }
- setpulse(0);
- return;
- end
-
-